Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/inptmthd.sit/Input Methods/stack.txt

Text File | 1989-11-24 | 6KB | 193 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2696
-- card count: 18
-- first card id: 12436
-- list block id: 2098
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 94848 bytes
-- stack block size: 5120 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--
-- Input Methods Demonstrations  Version 1.1 --
-- created by Jim Taylor         7/20/89     --
-ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--
-- Microcomputer Support for Curriculum --
-- 101 HRCB, Brigham Young University   --
-- Provo, UT  84602  [phone]     --
-- [e-mail]                --
-ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--
-- Resources:
--   snd s: Eengh, Woops, Wahoo, Yay, Splat
--   fonts: Geneva (9,10,12,14)
--   xfcns: popUpMenu 2.0b2 © Brown University 1989
--   xcmds: controlLock  © Nigel Perry, portions © Symantec Inc.
--   the ditl and dlog resources make the "answer" box larger
-- Handlers:
--    wrongSound, rightSound, info, hideInfo, clickLine()

on openStack
  push recent card  -- remember where we came from
  checkVersion
  pass openStack
end openStack

on closeCard
  hideInfo
end closeCard

on checkVersion
  if the version < 1.2 then
    answer "Sorry, you need HyperCard version 1.2 or newer to run this stack."
    pop card  -- go back to where we came from
  end if
end checkVersion

on wrongSound
  get random(2)
  if it = 1 then play "Eengh"
  else play "Woops"
  wait until the sound is "done"
end wrongSound

on rightSound
  get random(3)
  if it = 1 then play "Yay"
  else play "Wahoo"  -- Wahoo will be played twice as often as Yay
  wait until the sound is "done"
end rightSound

-- Show information field (or hide it if it's already up)
on info
  global infoShowing
  if infoShowing is empty then
    show card field "Info"
    put "true" into infoShowing
  else
    hideInfo
  end if
end info

on hideInfo
  global infoShowing
  if infoShowing is not empty then
    hide card field "Info"
    if the style of card field "Info" is "scrolling"
    then set the scroll of card field "Info" to 0
    put empty into infoShowing
  end if
end hideInfo

-- Returns the number of the line clicked on in the target field
-- Accounts for scrolling fields and wide margins
function clickLine
put the clickV - the top of the target into lineV
if the style of the target = "scrolling"
then add the scroll of the target to lineV
if the wideMargins of the target then subtract 4 from lineV
return lineV div the textHeight of the target + 1
end clickLine


--ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--
-- Debug/Authoring stuff --
--ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--

-- Hold down command key and click a field to toggle lockText
on mouseUp
  if the commandKey is down then
    if second word of the name of the target is "field" then
      set the lockText of the target to not the lockText of the target
    end if
  end if
end mouseUp

-- Lock/unlock all fields on a card
on lockF setting
  repeat with f = 1 to number of card fields
    set the lockText of card field f to setting
  end repeat
end lockF

-- Name the current card and put the name in the black title bar
on nameCard
  ask "Name for this card" with the short name of this card
  if it is empty then exit nameCard
  set the name of this card to it
  choose select tool
  drag from 0,0 to 511,52
  doMenu "Clear Picture"
  set the textFont to Cooper Black
  set the textSize to 24
  choose text tool
  click at 14,44
  type it
  choose select tool
  drag from 1,1 to 511,52
  doMenu "Transparent"
  drag from 0,0 to 511,52 with commandKey
  doMenu "Invert"
  doMenu "Opaque"
  choose browse tool
end nameCard